; 	"Dieter und Gisela bumsen wie die wilden Tiere in Nachbars Whirlpool"  
;	A litte 64 bytes effect (58 bytes+6 byte file header) for the Atari 800 XL (PAL).
;	
;	Done by JAC! of WUDSN ursel on 2007-06-06 (23:31:00 - 23:57:14 ;-).
;
;	Inspired by "Dieter und Gisela trinken Limonade und Hören Beat" by Camelot
; 	http://www.pouet.net/prod.php?which=30887
;	and the comment from "am-fm" on the 2007-06-01.
;	When I read that comment I immediately started Ultraedit and ATASM
;	just to be the first to occupy that cool title.
;	Indeed my first production after 3 years, yep, thankx am-fm!
;
;	Greetings to all former members of Visdom and WUDSN and all Atarians.
;	Have fun and code demos - 8 bits are enough.


*	= $4000

start	dec $d008
	dec $d00d
loop
	ldx $d40b
	bne *-3
	stx 559
	iny
loopx	tya
	and #31
	cmp #16
	bcc *+4
	eor #31

	sta $d40a
	sta $d012

	txa
	asl
	bpl *+4
	eor #$ff
	sta $d01a
	
	tya
	bpl *+4
	eor #$ff
	clc
	adc #48
	eor 19
	sta $d000

	iny
	inx
	bne loopx
	beq loop


		
